home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
The Original Shareware 1.1
/
The Original Shareware (WeMake CDs)(Volume 1.1)(CDs, Inc)(1993).iso
/
36
/
dvqmlfix.zip
/
DVQMLFIX.BAS
next >
Wrap
BASIC Source File
|
1988-10-05
|
2KB
|
45 lines
'
' Program to fix Qmail Door v2.22 QWIKXFER.BAT for proper operation within
' a DESQview, multi-node environment.
'
' Problems:
' 1. QWIKXFER.BAT contains ECHO commands with redirection to comm ports.
' DOS and DESQview don't get along with respect to this type of
' redirection. Use of these commands can cause frequent freeze-ups
' such that DSZ is not exited properly at the conclusion of the file
' transfer. Solution is to use a command (ECHO_R) designed for
' communication with a comm port.
'
' 2. QWIKXFER.BAT contains CLS commands which disrupt screen I/O vectors
' within the DESQview environment such that QB4 (and possibly QB3)
' programs lockup. Solution is to remove the CLS's
'
' Jack Kilday, Sysop
' The Northern Lights
' 207-766-2467 96/24/1200
'
defint a-z
open "qwikxfer.bat" for input as 1
open "qwikxfer.bak" for output as 2
while not eof(1)
line input #1, in.line$
if left$(in.line$,3) = "CLS" then goto skip
n = instr(in.line$,"ECHO")
if n = 0 then goto nutten
m = instr(in.line$,"> COM")
if m = 0 then goto nutten
comm.port$ = mid$(in.line$, m+5, 1)
in.line$ = left$(in.line$,m-1)
in.line$ = right$(in.line$,len(in.line$)-4)
in.line$ = "ECHO_R"+comm.port$+in.line$
print #2, in.line$
in.line$ = "ECHO_R"+comm.port$+" "+chr$(10)
nutten:
print #2, in.line$
skip:
wend
close
kill "qwikxfer.bat"
name "qwikxfer.bak" as "qwikxfer.bat"
system